home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Rockford Magazine
/
Rockford_Magazine_003_19xx_-_de_Side_A.d64
/
le president
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
36KB
|
917 lines
0 poke53280,9:poke53281,9:ifpeek(182)=0thenpoke182,1:load"zeichen",8,1
1 poke53272,48:poke56576,0:poke648,204:gosub100
5 a=1023:restore:af=52264
6 readc
7 ifc=-1thenreturn
9 fory=1to4:poke(a+y),c:nexty:a=a+4
10 goto6
12 data1,1,1,0,100,100,0,0,1,0,0,1,1,2,10,20,100,0,50,1,0,0,0,0,1,1,2,5,5,25,0
13 data 0,100,100,0,0,20,-1
19 fori=1tozz
20 a(i)=2800:sg(i)=2000:po(i)=250:ew(i)=50000:ja=2010:eg(i)=26000
21 eb(i)=24000:g(i)=35000:up(i)=1200:lb(i)=20000:pi(i)=450:lh(i)=600
46 gv(i)=25000:gb(i)=24738:bl(i)=1535:gl(i)=2465:la(i)=50000:gk(i)=25000
47 ev(i)=2000:ga(i)=0:al(i)=0:ac(i)=500:next
50 forx=1to10:poke(1379+x),2:next:return
100 print"[144][147][215]ieviel [211]pieler (1-4) ";:inputzz
122 if zz<1 orzz>4 then 100
123 print"[147]":fori=1tozz
124 print"[206]ame von [211]pieler";i;spc(61):inputn$(i)
125 a=len(n$(i)):ifa>12thenprint"[145][145][145][145][145][145]":goto124
127 next:gosub5:gosub19:gosub20950:gosub50000:gosub50100:goto20000
500 gosub19000:sp=52865:jmp=1:a=7:b=240:pokesp,62:g(i)=(int(g(i)))
510 printspc(11)"[199]eld :";g(i)"[200][198]":printspc(11)"[197]inwohner :";ew(i)
540 printspc(11)"[193]usl^nder :";al(i):printspc(11)"[204]andbesitz :";lb(i)"[209][200][198]"
546 printspc(11)"bebautes [204]and :";bl(i)"[209][200][198]":printspc(11)"[194]auland :";gl(i)"[209][200][198]"
549 printspc(11)"[214]olksstimmung :";peek(1039+i)"%"
550 printspc(11)"[213]mweltzustand :";peek(1043+i)"%"
551 printspc(11)"[211][193][199]-[211]t^rke :";peek(1151+i)"%"
560 print"[197]nergie":print"[202]ustiz":print"[212]ourismus":print"[205]ilit^r":print"[201]ndustrie"
610 print"[204]andwirtschaft":print"[193]uswertung"
660 gosub 20100:ifjmp=7then50500
670 on jmp gosub 999,1499,1999,2498,2999,3499:goto500
999 sp=52785:jmp=1
1000 gosub19000:printspc(10)"[199]eld :";g(i)"[200][198]"
1002 a=10:pokesp,62:b=360:printspc(10)"[203]ernkraftwerke :";peek(1023+i)
1003 printspc(10)"[215]indr^der :";peek(1027+i)
1004 printspc(10)"[211]taud^mme :";peek(1031+i)
1005 printspc(10)"[197]nergievorrat :";ev(i)"[203][200][198]"
1006 printspc(10)"[197]nergieproduktion:";eg(i)"[203][200][198]"
1007 printspc(10)"[197]nergie ben\tigt :";eb(i)"[203][200][198]"
1008 printspc(10)"[194]auland :";gl(i)"[209][200][198]"
1010 print"[203]ernkraftwerk kaufen - 3000 [200][198]":print"[203]ernkraftwerk verkaufen"
1020 print"[215]indrad kaufen - 2500 [200][198]":print"[215]indrad verkaufen"
1030 print"[211]taudamm kaufen - 1500 [200][198]":print"[211]taudamm verkaufen"
1080 print"[211]trom anbieten":print"[211]trom kaufen":print"[211]trompreise":print"[200]auptmen[184]"
1110 gosub 20100:ifjmp=10thenreturn
1120 onjmpgosub 19059,19088,19069,19098,19079,19108,19116,19127,19172:goto1000
1499 jmp=1:sp=52825
1500 gosub19000
1501 printspc(14)"[199]eld :";g(i)"[200][198]":printspc(14)"[211]teuern :";peek(1083+i)"%"
1513 a=5:pokesp,62:b=160:printspc(14)"[199]ef^ngnisse :";peek(1067+i)
1514 printspc(14)"[199]esetzesh^rte:";peek(1075+i)
1515 printspc(14)"[194]auland :";gl(i)"[209][200][198]"
1519 print"[199]ef^ngniss kaufen - 1500 [200][198]":print"[211]teuern ^ndern"
1522 print"[199]esetzesh^rte":print"[208]olizei":print"[200]auptmen[184]"
1600 gosub20100:ifjmp=5thenreturn
1619 ifjmp=4then19299
1620 onjmpgosub19280,19260,19290:goto1500
1999 jmp=1:sp=52785
2000 gosub19000:printspc(11)"[199]eld :";g(i)"[200][198]":pokesp,62:a=8:b=280
2010 printspc(11)"[200]otels :";peek(1071+i)
2012 printspc(11)"[198]reizeitparks :";peek(1099+i)
2013 printspc(11)"[194]ungalowsiedlungen:";peek(1055+i)
2016 printspc(11)"[218]oll";spc(12)" :";peek(1079+i)"%"
2017 printspc(11)"[194]auland :";gl(i)"[209][200][198]"
2030 print"[200]otel kaufen";spc(12)"- 1000 [200][198]":print"[200]otel verkaufen"
2050 print"[198]reizeitpark kaufen - 1250 [200][198]":print"[198]reizeitpark verkaufen"
2060 print"[194]ungalowsiedlung kaufen - 2500 [200][198]":print"[194]ungalowsiedlung verkaufen"
2061 print"[218]oll":print"[200]auptmen[184]"
2080 gosub20100:ifjmp=8thenreturn
2100 onjmpgosub 19510,19515,19520,19525,19530,19535,19270:goto2000
2498 ifja<2012then20060
2499 jmp=1:sp=52825
2500 gosub19000
2502 if peek(1399+i)>100 then poke(1399+i),100
2503 printspc(14)"[199]eld :";g(i)"[200][198]":bb=0
2505 pokesp,62:a=7:b=240:printspc(14)"[198]lugzeuge :";peek(1309+i)
2506 printspc(14)"[208]anzer :";peek(1299+i):printspc(14)"[201]nfanterie :";peek(1319+i)
2508 printspc(14)"[203]asernen :";peek(1379+i):printspc(14)"[193]usbildung :";peek(1399+i)"%"
2510 printspc(14)"[194]auland :";gl(i)"[209][200][198]"
2520 print"[198]lugzeug kaufen - 800 [200][198]"
2530 print"[208]anzer kaufen - 500 [200][198]":print"[201]nfanterie - 300 [200][198]"
2555 print"[203]aserne kaufen - 500 [200][198]":print"[201]nformationen"
2558 print"[203]rieg":print"[200]auptmen[184]"
2570 gosub 20100:ifjmp=7thenreturn
2571 ifjmp=6then19650
2573 y=jmp
2590 onjmp gosub19600,19600,19600,42500,37000:ifjm=11then2499
2593 goto2500
2999 sp=52825:jmp=1
3000 gosub19000:printspc(12)"[199]eld :";g(i)"[200][198]"
3020 pokesp,62:a=7:b=240:printspc(12)"[199]rosse [198]abriken:";peek(1119+i)
3024 printspc(12)"[203]leine [198]abriken:";peek(1123+i)
3025 printspc(12)"[208]roduktion :";pi(i)"[201][200][198]"
3026 printspc(12)"[204]agerh^user :";peek(1127+i)
3027 printspc(12)"[204]agerkapazit^t :";lh(i)"[201][200][198]"
3028 printspc(12)"[194]auland :";gl(i)"[209][200][198]"
3060 print"[198]abrik kaufen - 3000 [200][198]":print"[198]abrik verkaufen"
3070 print"[203]l. [198]abrik kaufen - 1500 [200][198]":print"[203]l. [198]abrik verkaufen"
3100 print"[204]agerhaus kaufen - 1200 [200][198]":print"[204]agerhaus verkaufen"
3120 print"[200]auptmen[184]"
3210 gosub 20100:ifjmp=7thenreturn
3230 on jmp gosub 14999,15018,15009,15028,15039,15048:goto3000
3499 jmp=1:sp=52825
3500 gosub19000:printspc(9)"[199]eld";spc(13)":";g(i)"[200][198]"
3540 pokesp,62:a=9:b=320:printspc(9)"[199]etreidem[184]hlen :";peek(1139+i)
3541 printspc(9)"[205][184]hlenkapazit^t :";gk(i)"[199][200][198]"
3550 printspc(9)"[204]agerh^user :";peek(1135+i)
3551 ifla(i)<1thenla(i)=0
3552 printspc(9)"[204]agerkapazit^t :";la(i)"[199][200][198]"
3553 printspc(9)"[193]ckerland :";ac(i)"[209][200][198]"
3554 printspc(9)"geeignetes [204]and :";gl(i)"[209][200][198]"
3560 printspc(9)"[199]etreidevorrat :";gv(i)"[199][200][198]"
3570 printspc(9)"[199]etreide ben\tigt:";gb(i)"[199][200][198]"
3571 printspc(9)"[211]aatgut ben\tigt :";sg(i)"[199][200][198]"
3600 print"[199]etreidefelder anlegen":print"[204]agerhaus kaufen - 500
3630 [153]"(NULL)agerhaus verkaufen":[153]"chr$etreidemfrehle kaufen - 1100 left$asc"
3650 [153]"chr$etreidemfrehle verkaufen":[153]"chr$etreide anbieten":[153]"chr$etreide kaufen"
3671 [153]"(NULL)reise anschauen":[153]"left$auptmenfre"
3700 [141] 20100:[139]jmp[178]9[167][142]
3720 [145] jmp [141] 15500,15601,15608,15620,15627,15690,15750,15850:[137]3500
14999 a[178]1119:d[178]0:e[178]300:f[178]0:g[178]800:h[178][171]3000:j[178]100:z[178]120:q[178]0:[137]20350
15009 a[178]1123:d[178]0:e[178]150:f[178]0:g[178]500:h[178][171]1500:z[178]80:j[178]70:q[178]0:[137]20350
15018 a[178]1119:d[178]80:e[178][171]300:f[178]0:g[178][171]800:h[178]3000:z[178][171]120:j[178]0:q[178]100:[137]20350
15028 a[178]1123:d[178]60:e[178][171]150:f[178]0:z[178][171]80:g[178][171]400:h[178]1500:j[178]0:q[178]70:[137]20350
15039 a[178]1127:d[178]0:e[178]0:f[178]300:g[178]20:h[178][171]1200:j[178]80:z[178]80:q[178]0:[137]20350
15048 a[178]1127:d[178]20:e[178]0:f[178][171]300:g[178][171]20:z[178][171]80:h[178]1200:j[178]0:q[178]80:[137]20350
15500 [141]19000:[153]"(NULL)ie haben";lb(i);"(NULL)left$asc (NULL)and,von denen"
15515 [153]"";ac(i);"(NULL)left$asc bepflanzt und";gl(i);"(NULL)left$asc":[153]"geeignet sind."
15530 a[178]0:[153]"(NULL)ieviel (NULL)left$asc wollen sie neu":[153]"bepflanzen ";:[133]a
15535 [139]a[177]gl(i)[176]a[179]0[167] [153]"ononononon":[137] 15530
15540 a[178]([181](a)):b[178]a[172]40:g(i)[178]g(i)[171]b:ac(i)[178]ac(i)[170]a:gl(i)[178]gl(i)[171]a
15544 sg(i)[178](a[172]4)[170]sg(i):[139][194](1043[170]i)[177]100[167][151](1043[170]i),100
15550 [153]"str$as herstellen von landwirtschaft-"
15555 [153]"lich gut nutzbarem atncker kostet":[153]"sie";b"left$asc.":[137]20800
15601 a[178]500:b[178]1135:c[178]1:d[178]10000:x[178]60:e[178]0:z[178]25:g[178]0:z[178]20:q[178]0:ty[178]20:[137]20400
15608 [139][194](1135[170]i)[179]0[167]20060
15611 a[178][171]500:x[178][171]60:b[178]1135:c[178][171]1:d[178][171]10000:e[178]0:y[178]0:g[178]10:z[178]0:q[178]20:ty[178][171]20:[137]20400
15620 a[178]1100:b[178]1139:c[178]1:d[178]0:e[178]1000:g[178]0:x[178]90:y[178]50:z[178]120:q[178]0:[137]20400
15627 [139][194](1139[170]i)[179]0[167]20060
15630 a[178][171]1100:y[178]0:b[178]1139:c[178][171]1:d[178]0:e[178][171]1000:x[178][171]90:g[178]20:z[178][171]120:q[178]10:[137]20400
15690 [139]zz[179][177]1[167] 15694
15691 [141]19117:[142]
15694 [141]19000
15695 a[178]0:[153]"(NULL)ieviel chr$left$asc wollen (NULL)ie":[153]"anbieten ";:[133]a
15697 a[178]([181](a)):[139]a[177]gv(i)[176]a[179]0[167] [153]"onononononon":[137]15695
15702 ga(i)[178]ga(i)[170]a:gv(i)[178]gv(i)[171]a:b[178]0:[153]"(NULL)reis pro 100 chr$left$asc ";:[133]b
15703 [139]b[177]255[176]b[179]0[167][153]"onononon":[137]15702
15705 [151](1143[170]i),b:[142]
15750 [141]19000
15751 [153]"peekei (NULL)pieler (a) oder bei (NULL)tore (b)"
15756 [153]"oder zurfreck ins (NULL)enfre (m) ?"
15757 [161] a$:[139]a$[178]""[167]15757
15758 [139]a$[178]"a"[175]zz[178]1[167] [153]"onononononon":[137]15751
15759 [139] a$[178]"a"[167]15770
15761 [139] a$[178]"b"[167]15800
15763 [139] a$[178]"m"[167] [142]
15765 [153]"onononononon":[137] 15751
15770 [153]"peekei welchem (NULL)pieler ";:[133]a
15771 [139]a[178]0[167]15750
15772 [139]a[178]i[176]a[177]zz[176]a[179]1[167][153]"onononon":[137]15770
15773 [139]ga(a)[178]0[167][141]51300:[137]15770
15776 [153]"(NULL)pieler";a;"bietet";ga(a);"chr$left$asc an.(NULL)ein"
15778 [153]"(NULL)reis ist";[194](1143[170]a);"left$asc pro 100 chr$left$asc."
15780 [153]"(NULL)ieviel chr$left$asc wollen sie erwerben";[166]49):[133]b
15783 b[178]([181](b)):[139]b[179]0[176]b[177]ga(a)[167][153]"onononononononononon":[137]15776
15784 b[178]([181](b)):gv(a)[178]gv(a)[171]b:gv(i)[178]gv(i)[170]b:ga(a)[178]ga(a)[171]b
15785 b[178](b[173]100)[172][194](1143[170]a):g(a)[178]g(a)[170]b:g(i)[178]g(i)[171]b:[139]ga(a)[178]0[167][151](1143[170]a),0
15786 [142]
15800 [141]19000
15801 [153]"str$er (NULL)reis der (NULL)tore liegt bei 40 left$asc"
15810 [153]"pro 100 chr$left$asc.(NULL)ieviel chr$left$asc wollen sie"
15813 [153]"erwerben ";:[133]a
15814 [139]a[179]0[167][153]"onononononononon":[137]15801
15817 a[178]([181](a)):gv(i)[178]gv(i)[170]a:c[178](a[173]100)[172]40:c[178]([181](c)):g(i)[178]g(i)[171]c:[142]
15850 [139] zz[177]1[167] 15855
15851 [141]19117:[142]
15855 [141]19000:y[178]zz:[129]x[178]1[164]y:[153]"chr$etreideangebot ";n$(x);" =";ga(x)"chr$left$asc"
15861 yy[178][195](n$(x)):[153]"chr$etreidepreis";[166]yy[170]4)"=";[194](1143[170]x)"left$asc"
15865 [130]:[137]20800
19000 [153]"loadmid$ahr:";ja"(NULL)r^sident ";n$(i)
19010 [153]"(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)":[142]
19059 a[178][171]3000:b[178]300:c[178]10000:d[178]120:f[178]1023:g[178][171]1:h[178]1:j[178]0:l[178]70:q[178]0:[137]20249
19069 a[178][171]2500:d[178]10:b[178]50:c[178]5000:h[178]1:f[178]1027:g[178]2:j[178]0:l[178]5:q[178]0:[137] 20249
19079 a[178][171]1500:d[178]40:b[178]100:c[178]11000:h[178][170]1:f[178]1031:g[178][171]3:j[178]0:l[178]200:q[178]0:[137] 20249
19088 [139] [194](1023[170]i)[178]0 [167] 20060
19089 a[178]3000:d[178][171]120:b[178][171]300:c[178][171]10000:f[178]1023:g[178][171]1:h[178][171]1:j[178]80:l[178]0:q[178]70:[137]20249
19098 [139] [194](1027[170]i)[178]0 [167] 20060
19099 a[178]2500:d[178][171]10:b[178][171]50:c[178][171]5000:f[178]1027:g[178][171]4:h[178][171]1:j[178]20:l[178]0:q[178]5:[137]20249
19108 [139] [194](1031[170]i)[178]0 [167] 20060
19110 a[178]1500:d[178][171]40:b[178][171]100:l[178]0:c[178][171]11000:f[178]1031:g[178][171]1:h[178][171]1:j[178]40:q[178]200:[137]20249
19116 [139]zz[177]1[167]19118
19117 [153]"onononon";[166]23)"(NULL)ozu ?wait":[137]20800
19118 [141]19000
19119 a[178]0:[153]"(NULL)ieviel (NULL)left$asc wollen (NULL)ie":[153]"anbieten ";:[133]a
19122 a[178]([181](a)):[139]a[177]ev(i)[176]a[179]0[167][153]"ononononononon":[137]19119
19124 svm(i)[178]svm(i)[170]a:ev(i)[178]ev(i)[171]a:[153]"(NULL)reis pro (NULL)left$asc ";:[133]b
19125 [139]b[177]255[176]b[179]0[167] [153]"onononon":[137] 19124
19126 [151](1051[170]i),b:[142]
19127 [141]19000
19128 [153]"peekei (NULL)pieler (a) oder (NULL)tore (b)"
19129 [153]"oder zurfreck ins (NULL)enfre (m) ?"
19130 [161]a$:[139] a$[178]""[167]19130
19131 [139]a$[178]"a"[175]zz[178]1[167][153]"onononononon":[137]19128
19132 [139] a$[178]"a"[167]19136
19133 [139] a$[178]"b"[167]19150
19134 [139] a$[178]"m"[167][142]
19135 [153]"onononononon":[137]19128
19136 [153]"peekei welchem (NULL)pieler ";:[133] a
19137 [139]a[178]0[167]19127
19138 [139]a[178]i[176]a[177]zz[167] [153]"onononon":[137]19136
19139 [139]svm(a)[178]0[167][141]51300:[137]19136
19140 [153]"(NULL)pieler";a;"bietet";svm(a);"(NULL)left$asc (NULL)trom zum"
19141 [153]"(NULL)reis von";[194](1051[170]a);"left$asc pro (NULL)left$asc an."
19142 b[178]0:[153]"(NULL)ieviel (NULL)left$asc wollen sie erwerben";[166]49):[133] b
19144 b[178]([181](b)):[139]b[177]svm(a)[176]b[179]0[167][153]"ononononononon":[137] 19142
19146 c[178]b[172][194](1051[170]a):svm(a)[178]svm(a)[171]b:ev(i)[178]ev(i)[170]b:g(i)[178]g(i)[171]c:g(a)[178]g(a)[170]c:[142]
19150 [153]"str$er (NULL)trompreis der (NULL)tore betr^gt"
19151 [153]"3 left$asc pro (NULL)left$asc.(NULL)ieviel (NULL)left$asc m\chten":[153]"sie erwerben ";:[133]a
19152 [139]a[179]0[167][153]"onononononononon":[137]19150
19154 b[178]a[172]3:g(i)[178]g(i)[171]b:ev(i)[178]ev(i)[170]a:[142]
19172 [139]zz[179][177]1[167] 19175
19173 [141]19117:[142]
19175 [141]19000:y[178]zz:[129]x[178]1[164]y:[153]"(NULL)tromangebot ";n$(x);"=";svm(x)"(NULL)left$asc"
19178 yy[178][195](n$(x)):[153]"(NULL)trompreis";[166]yy[170]3)"=";[194](1051[170]x)"left$asc":[130]:[137]20800
19260 [141]19000
19261 y[178][194](1083[170]i):[153]"(NULL)teuersatz festlegen ((NULL)rozent) ";:[133]y
19262 [139]y[177]100[176]y[179]0[176]y[177][194](1167[170]i)[170]1[167][153]"onononon":[137]19261
19263 x[178]([194](1083[170]i)[171]y)[172]10:[139][194](1039[170]i)[170]x[177]100[167][151](1039[170]i),100:[137]19268
19266 [139][194](1039[170]i)[170]x[179]1[167][151](1039[170]i),0:[137]19268
19267 [151](1039[170]i),[194](1039[170]i)[170]x
19268 [151](1083[170]i),y:[142]
19270 [141]19000
19271 y[178][194](1079[170]i):[153]"(NULL)oll festlegen ((NULL)rozent) ";:[133]y
19272 [139]y[177]100[176]y[179]0[167] [153]"onononon":[137]19271
19279 [151](1079[170]i),y:[142]
19280 [139]gl(i)[171]30[179]0[167]20060
19285 [141]20050:g(i)[178]g(i)[171]1500:a(i)[178]a(i)[170]65:[151](1067[170]i),[194](1067[170]i)[170]1
19286 gl(i)[178]gl(i)[171]30:bl(i)[178]bl(i)[170]30:eb(i)[178]eb(i)[170]30:[142]
19290 yy[178][194](1075[170]i):[153]"(NULL)euer left$^rtgrad (1-4) ";:[133]yy
19291 [139]yy[177]4[176]yy[179]1[167] [153]"onononon":[137]19290
19292 x[178][194](1075[170]i)[171]yy:[151](1075[170]i),yy:[139][194](1039[170]i)[170]x[177]100[167][151](1039[170]i),100:[142]
19295 [139][194](1039[170]i)[170]x[179]1[167][151](1039[170]i),0:[142]
19296 [151](1039[170]i),[194](1039[170]i)[170]x:[142]
19299 sp[178]52825:jmp[178]1
19300 [141]19000:[153][166]12)"chr$eld :";g(i)"left$asc"
19305 [151]sp,62:a[178]6:b[178]200:[153][166]12)"(NULL)olizisten :";po(i)
19307 [153][166]12)"atnusbildung :";[194](1087[170]i)"%"
19308 [153][166]12)"atnusr*stung :";[194](1155[170]i)"%"
19309 [153][166]12)"(NULL)onderkommandos:";[194](1091[170]i)
19315 [153]"(NULL)onderkommando - 200 left$asc":[153]"(NULL)olizisten einstellen"
19316 [153]"(NULL)olizisten entlassen"
19319 [153]"(NULL)abotage":[153]"right$nformationen":[153]"(NULL)enfre"
19325 [141]20100:[139]jmp[178]6[167]1499
19326 [139]jmp[178]4[167]42000
19328 [145]jmp[141]19420,19360,50700,0,37000:[139]jm[178]11[167]19299
19329 [137]19300
19360 a[178]0:[153]"(NULL)ieviel (NULL)olizisten einstellen ";:[133]a
19361 [139]a[179]0[167][153]"ononon":[137]19360
19362 a[178]([181](a)):a(i)[178]a(i)[170]a[172]10:po(i)[178]po(i)[170]a:[142]
19420 [141]20050
19422 g(i)[178]g(i)[171]200:a(i)[178]a(i)[170]60:[151](1091[170]i),[194](1091[170]i)[170]1:yy[178]1:[142]
19510 a[178]1000:b[178]110:c[178]400:d[178]1071:e[178]2:g[178]60:z[178]140:q[178]0:[137] 20290
19515 a[178][171]1000:b[178][171]110:c[178][171]400:d[178]1071:e[178]0:g[178]0:z[178][171]140:q[178]60:[137] 20290
19520 a[178]1250:b[178]70:c[178]0:d[178]1099:e[178]5:g[178]100:z[178]250:q[178]0:[137]20290
19525 a[178][171]1250:b[178][171]70:c[178]0:d[178]1099:e[178]0:g[178]0:z[178][171]250:q[178]100:[137]20290
19530 a[178]2500:c[178]200:b[178]20:d[178]1055:e[178]4:g[178]140:z[178]170:q[178]0:[137] 20290
19535 a[178][171]2500:c[178][171]200:b[178][171]20:d[178]1055:e[178]0:g[178]0:z[178][171]170:q[178]140:[137] 20290
19600 x[178]0:[153]"(NULL)ieviel (NULL)tfreck ";:[133]x:[139]x[179]0[167][153]"ononon":[137]19600
19601 [139]x[178]0[167][142]
19602 [145]y[137]19610,19620,19630
19610 a[178]x[172]800:c[178]x[172]40:d[178]1309:b[178]x[172]3:[137]20200
19620 a[178]x[172]500:c[178]x[172]50:d[178]1299:b[178]x[172]2:[137]20200
19630 a[178]x[172]300:c[178]x[172]195:d[178]1319:b[178]x[172]1:[137]20200
19650 [139][194](1159[170]i)[178]0[175]ja[177]2012[167]bb[178]1:[137]35000
19651 [141]20060:[137]2499
19676 [141]20800
19677 p[178]0:[153]"loadvals wird in ";:b[178][181](4[172][187](1))[170]1:[145]b[137]19690,19700,19710,19719
19690 [153]"dichten (NULL)^ldern":a[178]3:b[178]1:c[178]2:[137]19720
19700 [153]"flacher (NULL)andschaft":a[178]1:b[178]2:c[178]3:[137]19720
19710 [153]"sumpfiger (NULL)andschaft":a[178]2:b[178]1:c[178]3:[137]19720
19719 [153]"hfregeliger (NULL)andschaft":a[178]2:b[178]3:c[178]1
19720 [153]"gek^mpft."
19721 [141] 19890
19723 xx[178]0:yy[178]0:p[178]p[170]1:[141]20450
19725 [139][194](1299[170]i)[170][194](1309[170]i)[170][194](1319[170]i)[178]0[167]a[178]i:b[178]y:[137]40000
19726 [139][194](1299[170]y)[170][194](1309[170]y)[170][194](1319[170]y)[178]0[167]a[178]y:b[178]i:[137]40000
19729 [139]p[178]40[170][194](1710)[172]3[167]19851
19730 z[178]a[172][194](1299[170]i):q[178]b[172][194](1309[170]i):w[178]c[172][194](1319[170]i):a2[178]a[172][194](1299[170]y)
19731 b2[178]b[172][194](1309[170]y):c2[178]c[172][194](1319[170]y):z[178]z[170]q[170]w[170][194](1399[170]i)
19732 a2[178]a2[170]b2[170]c2[170][194](1399[170]y):m[178]z[170]a2
19735 [139]p[178]20[170][194](1710)[172]4[167]19851
19736 [137]19855
19851 [153]"valnde des (NULL)rieges !":[141]20800:[139]a2[179]z[167]a[178]y:b[178]i:[137]19900
19853 [139]z[179]a2[167]a[178]i:b[178]y:[137]19900
19854 [139]z[178]a2[167]z[178]z[170]1:[153]"onononon":[137]19851
19855 d[178][181](m[172][187](1))[170]1:e[178][181](3[172][187](1))[170]1:[139]d[179]z[167]x[178]y:[141]19865
19858 [139]d[177]z[167]x[178]i:[141]19865
19860 [137] 19723
19865 e[178][181](3[172][187](1))[170]1:[145]e[141] 19870,19875,19880:[139]yy[178]1[167]yy[178]0:[137]19865
19867 yy[178]1:[142]
19870 [139][194](1299[170]x)[179]1[167]yy[178]1:[142]
19872 [151](1299[170]x),[194](1299[170]x)[171]1:[151](1349[170]i),[194](1349[170]i)[170]1:[142]
19875 [139][194](1309[170]x)[179]1[167]yy[178]1:[142]
19876 [151](1309[170]x),[194](1309[170]x)[171]1:[151](1359[170]i),[194](1359[170]i)[170]1:[142]
19880 [139][194](1319[170]x)[179]1[167]yy[178]1:[142]
19886 [151](1319[170]x),[194](1319[170]x)[171]1:[151](1369[170]i),[194](1369[170]i)[170]1:[142]
19890 a$(1)[178]"(NULL)anzer":a$(2)[178]"asclugzeuge":a$(3)[178]"right$nfanterie":[153]"";ln$(i)
19891 [129]x[178]1[164]3:[153]"";a$(x):[130]:[153]"";ln$(y):[129]x[178]1[164]3
19892 [153]"";a$(x):[130]:[142]
19900 x[178][194](1299[170]a)[170][194](1309[170]a)[170][194](1319[170]a)[170][194](1349[170]a)[170][194](1359[170]a)[170][194](1369[170]a)[170]1
19901 [151](1349[170]a),0:[151](1349[170]b),0:[151](1359[170]a),0:[151](1359[170]b),0:[151](1369[170]a),0
19902 [151](1369[170]b),0
19905 z[178][181]((lb(a)[173]x))[170]400
19915 [153]"load";ln$(a)" verlor";
19916 [139]a[179]zz[176]a[178]zz[175]z[177]gl(a)[167]z[178]gl(a)
19920 [153]z"(NULL)left$asc (NULL)and.":lb(a)[178]lb(a)[171]z:lb(b)[178]lb(b)[170]z:gl(b)[178]gl(b)[170]z:gl(a)[178]gl(a)[171]z
19950 [141]47000:[141]20800:[139]bb[178]1[167]bb[178]0:[137]2499
19951 [142]
20000 [129]i[178]1[164]zz:[139] [194](1699[170]i)[178]1[167]b(i)[178]0:[137]20010
20005 p(i)[178]0:ag(i)[178]0:[141]500:[141]21000:[151](1159[170]i),0
20007 [141]23010:[151](1163[170]i),0:[141]43000
20009 [139]ja[178](2010[170][194](1711))[167]30000
20010 [139]g(i)[179]0[167][141]32000
20011 [139]i[178]zz[167][141]38000
20013 [130]i:ja[178]ja[170]1
20014 [129]x[178]1[164]4:[151](1167[170]x),[194](1083[170]x):[130]
20015 [139]ja[177]2011[167][141]41000
20016 x[178]0:[129]y[178]1[164]zz:x[178]x[170][194](1699[170]y):[130]:[139]x[178]zz[167]20700
20020 [137]20000
20050 si[178]54272:fl[178]si:fh[178]si[170]1:w[178]si[170]4:y[178]si[170]5:hi[178]si[170]6:p[178]si[170]24
20051 [151]p,15:[151]y,16[170]9:[151]fh,29:[151]fl,19:[151]w,17:[129]t[178]1[164]500:[130]:[151]w,0:[151]y,0:[142]
20060 si[178]54272:fl[178]si:fh[178]si[170]1:tl[178]si[170]2:th[178]si[170]3:w[178]si[170]4:a[178]si[170]5:h[178]si[170]6:l[178]si[170]24
20061 [129]x[178]15[164]0[169][171]1:[151]l,x:[151]a,15:[151]eh,0:[151]fh,40:[151]fl,55:[151]w,65:[130]:[151]w,0
20064 [151]a,0:[142]
20100 [161] a$:[139] a$[178]"" [167] 20100
20110 yy[178]([198](a$)):[139]yy[178]145[167]jmp[178]jmp[171]1:[141] 20160
20130 [139]yy[178]17[167]jmp[178]jmp[170]1:[141] 20170
20135 [139]yy[178]13[167][142]
20145 [137] 20100
20160 [139]jmp[178]0[167]jmp[178]a:[151]sp,32:sp[178]sp[170]b:[151]sp,62:[142]
20161 [151]sp,32:sp[178]sp[171]40:[151]sp,62:[142]
20170 [139]jmp[178]a[170]1[167]jmp[178]1:[151]sp,32:sp[178]sp[171]b:[151]sp,62:[142]
20171 [151]sp,32:sp[178]sp[170]40:[151]sp,62:[142]
20200 [139]([194](1299[170]i)[170][194](1309[170]i)[170][194](1319[170]i)[170]x)[173]9[179][178][194](1379[170]i)[167]20204
20202 [153]"onononstopvalrst (NULL)aserne kaufen!wait":[141]20800:[142]
20204 [139][194](d[170]i)[170]x[177]255[167][142]
20209 g(i)[178]g(i)[171]a:a(i)[178]a(i)[170]c:[151](d[170]i),[194](d[170]i)[170]x
20210 [139][194](1399[170]i)[170]b[177]255[167][151](1399[170]i),255:[137]20050
20211 [151](1399[170]i),[194](1399[170]i)[170]b:[137]20050
20249 [139] gl(i)[171]l[179]1[167]20060
20252 [141]20050:g(i)[178]g(i)[170]a:eb(i)[178]eb(i)[170]b:eg(i)[178]eg(i)[170]c:a(i)[178]a(i)[170]d:lb(i)[178]lb(i)[171]q
20254 [151](f[170]i),[194](f[170]i)[170]h:al(i)[178]al(i)[170]j:gl(i)[178]gl(i)[171]l:bl(i)[178]bl(i)[170]l:bl(i)[178]bl(i)[171]q
20255 [151](1039[170]i),[194](1039[170]i)[170]g:[139][194](1039[170]i)[179]5[167][151](1039[170]i),6
20257 [139][194](1039[170]i)[177]100[167] [151](1039[170]i),100:[142]
20258 [142]
20290 [139][194](1095[170]i)[177]200[167]49000
20291 [153]"(NULL)ieviel (NULL)tfreck ";:[133]v
20292 x[178]v:[139]jm[178]2[176]jm[178]4[176]jm[178]6[167]v[178]v[171](v[172]2)
20293 [139][194](d[170]i)[170]v[179]0[167][153]"ononon":[137]20290
20294 [139]v[178]0[167][142]
20295 [139]gl(i)[171]x[172]g[179]0[176][194](d[170]i)[170]v[177]255[176]x[179]0[167][153]"ononon":[137]20290
20300 g(i)[178]g(i)[171]x[172]a:a(i)[178]a(i)[170]x[172]b:up(i)[178]up(i)[170]x[172]c:[151](d[170]i),[194](d[170]i)[170]v
20302 bl(i)[178]bl(i)[170]x[172]g:gl(i)[178]gl(i)[171]x[172]g
20304 [139][194](1095[170]i)[170]x[172]e[177]255[167][151](1095[170]i),255:[137]20307
20305 [151](1095[170]i),[194](1095[170]i)[170]x[172]e
20307 eb(i)[178]eb(i)[170]x[172]z:lb(i)[178]lb(i)[171]x[172]q:bl(i)[178]bl(i)[171]x[172]q:[137]20050
20350 [153]"(NULL)ieviel (NULL)tfreck ";:[133]x
20351 v[178]x:[139]jm[178]2[176]jm[178]4[176]jm[178]6[167]v[178]x[171](x[172]2)
20352 [139]x[178]0[167][142]
20353 [139]gl(i)[171]x[172]j[179]0[176][194](a[170]i)[170]v[177]255[176][194](a[170]i)[170]v[179]0[167][153]"ononon":[137]20350
20360 al(i)[178]al(i)[170]x[172]d:[151](a[170]i),[194](a[170]i)[170]v:pi(i)[178]pi(i)[170]x[172]e
20362 gl(i)[178]gl(i)[171]x[172]j:lh(i)[178]lh(i)[170]x[172]f:eb(i)[178]eb(i)[170]x[172]g:g(i)[178]g(i)[170]x[172]h
20364 bl(i)[178]bl(i)[170]x[172]j:a(i)[178]a(i)[170]x[172]z:lb(i)[178]lb(i)[171]x[172]q:bl(i)[178]bl(i)[171]x[172]q:[137]20050
20400 [139]gl(i)[171]z[179]1[167]20060
20402 g(i)[178]g(i)[171]a:[151](b[170]i),[194](b[170]i)[170]c:la(i)[178]la(i)[170]d:gk(i)[178]gk(i)[170]e
20403 al(i)[178]al(i)[170]g:a(i)[178]a(i)[170]x:gl(i)[178]gl(i)[171]z:eb(i)[178]eb(i)[170]ty
20405 lb(i)[178]lb(i)[171]q:bl(i)[178]bl(i)[171]q:[137]20050
20450 [153]" cmdcmdcmdcmd"[194](1299[170]i)
20451 [153]" cmdcmdcmdcmd"[194](1309[170]i)
20452 [153]" cmdcmdcmdcmd"[194](1319[170]i)
20453 [153]" cmdcmdcmdcmd"[194](1299[170]y)
20454 [153]" cmdcmdcmdcmd"[194](1309[170]y)
20455 [153]" cmdcmdcmdcmd"[194](1319[170]y)
20465 [142]
20500 [151]198,0:[153]"(NULL)ie haben";g(i)"left$asc zur (NULL)erffregung."
20501 b[178]0:[153]"(NULL)ieviel left$asc wollen sie bereitstellen";[166]5):[133]b
20502 [139] b[177][171]0.01[167]20505
20503 [137]20500
20505 g(i)[178]g(i)[171]b:[142]
20550 x[178][194](1023[170]i)[172]2[170][194](1031[170]i)[172]3[170][194](1055[170]i)[172]2[170][194](1071[170]i)[172]1[170][194](1099[170]i)[172]1
20551 x[178]x[170][194](1119[170]i)[172]3.5[170][194](1123[170]i)[172]2[170](ac(i)[173]100)[170][194](1380[170]i)[172]0.5[170][194](1128[170]i)[172]0.5
20554 x[178]x[170][194](1135[170]i)[172]0.5:x[178]([181](x)):[139][194](1043[170]i)[171]x[179]1[167][151](1043[170]i),0:[142]
20555 [151](1043[170]i),[194](1043[170]i)[171]x:[142]
20700 [153]"load(NULL)ollen sie noch ein (NULL)piel wagen (s)"
20720 [153]"oder lieber aufh\ren (a) ?"
20730 [161]a$:[139]a$[178]""[167]20730
20740 [139]a$[178]"s"[167][138]
20741 [139]a$[178]"a"[167][158]64738
20743 [137]20730
20800 [151]198,0:[146]198,1:[151]198,0:[142]
20950 [129]x[178]1[164]40:[151](1299[170]x),6:[130]:[129]x[178]1[164]30:[151](1349[170]x),0:[130]
20955 [129]x[178](zz[170]1)[164]10:lb(x)[178]20000:[130]
20960 [129]x[178]1[164]10:[135]ln$(x):[130]:[137]20980
20965 [131]"str$eutschland","ascrankreich","(NULL)chweden","str$^nemark","left$olland"
20970 [131]"(NULL)chweiz","right$talien","valngland","possterreich","(NULL)panien"
20980 [129]x[178]1[164]10:y[178][181](10[172][187](1))[170]20:[151](1399[170]x),y:[151](1699[170]x),0:[130]:[142]
21000 [141]19000:[153]"valnergie:"
21002 [139][194](1039[170]i)[171][194](1075[170]i)[179]1[167][151](1039[170]i),0:[137]21020
21004 [151](1039[170]i),[194](1039[170]i)[171][194](1075[170]i)
21020 [153]"(NULL)roduktion :";eg(i)"(NULL)left$asc"
21021 [153]"(NULL)orrat :";ev(i)"(NULL)left$asc"
21025 [153]"valnergie ben\tigt:";eb(i)"(NULL)left$asc":ev(i)[178](ev(i)[170]eg(i))[171]eb(i):g[178]1
21030 [139]ev(i)[179]0[167]g[178]ev(i):ev(i)[178]0
21031 [139]g[177]0[167]21305
21050 x[178][181](g[172][171]1.98):g(i)[178]g(i)[171]x:[153]"(NULL)u wenig valnergie,es entstanden"
21060 [153]"(NULL)ch^den in left$\he von";x"left$asc.":g(i)[178]g(i)[171]x
21145 [151](1155[170]i),[194](1155[170]i)[171]1
21305 [153]"mid$ustiz:"
21306 x[178][181](750[172][187](1))[170]750:x[178]x[171][194](1087[170]i)[171][194](1155[170]i)[171]po(i):[139]x[179]50[167][141]52000
21310 [153]"begangene (NULL)erbrechen :";x
21315 y[178][181](x[173]([194](1075[170]i)[170]3)):[153]"chr$ef^ngnisstrafen :";y
21320 x[178][181](x[172]1.9):[153]"entstandener (NULL)chaden :";x"left$asc":g(i)[178]g(i)[171]x
21395 x[178][194](1067[170]i)[172]100:[139]y[179]x[167]21490
21450 [153]"(NULL)u wenig chr$ef^ngnisse,es entstanden"
21453 y[178]x[171]y[172][171]5:[153]"valxtrakosten in left$\he von";y"left$asc.":g(i)[178]g(i)[171]y
21490 [141]20800
21499 [141]19000:[153]"valinnahmen durch"
21500 y[178][181](1000[172][187](1))[170]99:x[178]((ew(i)[173]0.3)[170]y)[173]100[172][194](1083[170]i):x[178]([181](x[172]2))
21510 [153]"- (NULL)teuern :";x"left$asc":g(i)[178]g(i)[170]x
21520 x[178]([181](eb(i)[173]3.34)):[153]"- (NULL)tromverkauf ans (NULL)olk :";x"left$asc":g(i)[178]g(i)[170]x
21521 [139]al(i)[179]1[167]21550
21536 x[178][181](al(i)[173]0.911):g(i)[178]g(i)[170]x:[153]"- atnbgaben von atnusl^ndern:";x"left$asc"
21550 y[178][181](999[172][187](1)):x[178][181](up(i)[173]32.72)[172][194](1095[170]i)[170]y[171]([194](1079[170]i)[172]30)
21555 [139]x[179]1000[167]x[178]1000
21590 [153]"- (NULL)ourismus :";x"left$asc
21591 g(i)=g(i)+x
21600 z=int(up(i)/100)*peek(1079+i):x=int((z/2)*rnd(1)):z=z+x
21630 print"- [218]oll :";z"[200][198]":g(i)=g(i)+z:gosub46000
21690 q=int(3*rnd(1))+5:y=x*q:print"- [201]ndustrie :";y"[200][198]"
21691 g(i)=g(i)+y:ifz=1thengosub46002
21750 gosub20800:gosub44000:goto45000
21751 gosub33000
21752 ifal(i)=0then21755
21753 x=int(al(i)/200):ifpeek(1039+i)-x<1thenpoke(1039+i),0:goto21755
21754 poke(1039+i),peek(1039+i)-x
21755 gosub19000:print"[197]rnte"
21757 print"[215]etterlage :";
21760 x=int(4*rnd(1))+1:onxgoto21770,21780,21790,21800,21
21770 print"[196]*rre":x=5:goto21820
21780 print"sehr trocken":x=6.5:goto21820
21790 print"normal":x=12:goto21820
21800 print"sehr gut":x=16:goto21820
21810 print"zu feucht":x=9:goto21820
21820 ifw>300thenz=int(4000*rnd(1)):goto21830
21823 z=0
21830 y=int((w*x)+z):print"[197]rnte :";y"[199][200][198]"
21839 print"[214]orrat :";gv(i)"[199][200][198]"
21842 print"[214]erbrauch :";gb(i)"[199][200][198]":gv(i)=gv(i)+y
21843 ifgb(i)>gk(i)andgv(i)>gk(i)thengosub20800:gosub49500
21844 ifgv(i)<0thengv(i)=0
21845 ifgv(i)<gb(i)then21870
21846 ifyy=1thenyy=0:goto21890
21847 ifxx=512thenxx=0:goto21900
21848 goto21890
21870 print"[196]adurch,dass sie zu wenig [199]etreide"
21872 x=gb(i)-gv(i):x=x/10:x=(int(x)):print"hatten,verhungerten";x"[205]enschen."
21874 ew(i)=ew(i)-x:x=x/50:x=(int(x))
21875 if(peek(1039+i)-x)<0then poke(1039+i),0:goto21890
21876 poke(1039+i),peek(1039+i)-x
21890 gosub20800
21900 ifgv(i)<0thengv(i)=0
21909 ifgv(i)<gb(i)thenx=gv(i):goto21955
21910 x=gb(i)
21955 gosub19000:print"[197]innahmen durch [199]etreideverkauf":w=int(x/1.42)
21961 w=w+v:print"an ihr [214]olk :";w"[200][198]":p(i)=p(i)+w:gv(i)=gv(i)-gb(i)
21962 ifgv(i)<0thengv(i)=0
21963 ifgv(i)<la(i)then22000
21993 x=gv(i)-la(i):gv(i)=la(i):print"[196]a sie zu wenig [204]agerplatz hatten"
21995 print"verschimmelten";x"[199][200][198]."
22000 print"[193]llgemeine [213]nterhaltskosten :";a(i)"[200][198]":gosub20800
22002 g(i)=g(i)-a(i)
22055 gosub19000:gosub20550:print"[213]mweltschutzgruppen verlangen"
22060 y=(100-peek(1043+i))*165:x=int(700*rnd(1)):z=(ja-2010)*121:y=y+x+z
22062 print"von [201]hnen,";y"[200][198] f*r den":print"[213]mweltschutz auszugeben."
22091 gosub20500:w=int(b/165):ifpeek(1043+i)+w>100thenpoke(1043+i),100:goto22150
22092 poke(1043+i),peek(1043+i)+w
22150 gosub 19000
22210 q=(int(ew(i)/2244)):ifpeek(1039+i)-q<1thenpoke(1039+i),0:goto22218
22213 poke(1039+i),peek(1039+i)-q
22218 y=(100-peek(1039+i))*523:z=(ja-2010)*251
22219 x=int(500*rnd(1)):y=y+x+z:print"[196]as [214]olk verlangt";y"[200][198] von"
22220 print"[201]hnen,um \ffentliche [197]inrichtungen":print"finanzieren zu k\nnen."
22235 gosub20500:x=int(b/523):ifpeek(1039+i)+x>100thenpoke(1039+i),100:goto22305
22240 poke(1039+i),peek(1039+i)+x
22305 gosub47500:ifpeek(1043+i)<50thengosub22400
22320 ifpeek(1039+i)<40thengosub22500
22325 return
22400 gosub19000:x=int(4*rnd(1))+1:print"[196]urch den schlechten [218]ustand"
22410 y=100-peek(1043+i):x=x*y:x=(int(x)):y=int(9*rnd(1))+1:x=x+y
22411 print"der [213]mwelt starben"
22412 print"";x"[205]enschen an schweren [214]ergift-"
22415 print"ungen.[196]as [214]olk ist dar*ber sehr ver-"
22420 print"^rgert und fordert sie auf,mehr f*r":ew(i)=ew(i)-x
22425 print"die [213]mwelt zu tun.":x=x/20
22426 ifpeek(1039+i)-x<1thenpoke(1039+i),0:goto22430
22427 poke(1039+i),peek(1039+i)-x
22430 goto20800
22500 gosub31000:print"[146][208]resident ";n$(i)" ist leider ausge-"
22510 print"scheiden.[197]r wurde von seinem w*tendem"
22515 print"[214]olk geblendet und verbannt.":print"ihre politische [203]arriere ist damit"
22525 print"wohl beendet.":t(i)=1:goto20800
22600 ifpeek(1379+i)<1thenpoke(1152+i),0:return
22610 gosub19000:z=peek(1379+i)*99:x=z/100:print"[196]ie [211][193][199] fordert von ihnen,"
22630 print"";z"[200][198] f*r die [211]icherung von"
22635 print"[203]asernen bereitzustellen.":gosub20500:y=b/x
22636 ifpeek(1151+i)+y>100thenpoke(1151+i),100:return
22637 poke(1151+i),y:return
23010 x=int(54*rnd(1))+1:ifx>27thenreturn
23015 gosub19000:printspc(13)"[197][210][197][201][199][206][201][211][211]"
23020 on x goto23100,23200,23300,23400,23500,23600,23700,23800,23900,24000
23025 onx-10goto24100,24200,24300,24400,24500,24600,24700,24800,24900,25000
23030 onx-20goto25100,25200,25300,25400,25500,25600,25700
23100 y=int(4*rnd(1))+1:onygoto23105,23107,23109,23111
23105 a=1027:b$=" [215]indrad":eg(i)=eg(i)-5000:a(i)=a(i)-60:ev(i)=ev(i)-50
23106 gl(i)=gl(i)+25:goto23115
23107 a=1031:b$=" [211]taudamm":eg(i)=eg(i)-11000:a(i)=a(i)-40
23108 gl(i)=gl(i)+200:eb(i)=eb(i)-100:goto23115
23109 a=1071:b$=" [200]otel":eb(i)=eb(i)-140:a(i)=a(i)-110:gl(i)=gl(i)+60
23110 up(i)=up(i)-400:goto23115
23111 a=1123:b$="e [198]abrik":pi(i)=pi(i)-3000:eb(i)=eb(i)-500
23112 a(i)=a(i)-120:bl(i)=bl(i)-100
23115 ifpeek(a+i)<1then return
23116 y=int(3*rnd(1))+1:onygoto23117,23118,23119
23117 a$="[212]erroranschlag":goto23120
23118 a$="[194]rand":goto23120
23119 a$="[201]rrtum einer [193]brissfirma"
23120 print"[196]urch einen ";a$
23121 print"verloren [211]ie ein";b$"."
23130 z=int(2000*rnd(1))+1000:print"[211]chaden :";z"[200][198]"
23135 poke(a+i),peek(a+i)-1:goto20800
23200 print"[215]ollen sie ein landesweites [203]inder-"
23205 print"fest veranstalten (j/n) ?"
23210 geta$:ifa$=""then23210
23215 ifa$="j" then23230
23220 ifa$="n" then23260
23225 goto 23210
23230 print"[196]er [197]rfolg war riesig,die [203]osten"
23235 print"leider auch! [196]as [199]anze kostete n^mlich"
23240 x=(int(ew(i)/3)/3):y=int(x*rnd(1))+2000:print"";y"[200][198].":g(i)=g(i)-y
23245 poke(1039+i),peek(1039+i)+3:ifpeek(1039+i)>100thenpoke(1039+i),100
23255 goto23280
23260 gosub50760:print"[201]hren [199]eiz !"
23270 ifpeek(1039+i)-3<1thenpoke(1039+i),0:goto23280
23275 poke(1039+i),peek(1039+i)-3
23280 goto20800
23300 print"[197]xtra [211]teuereinnahmen durch eine"
23305 x=int(2000*rnd(1))+2000:print"private [204]otterie :";x"[200][198]":g(i)=g(i)+x:goto20800
23400 print"[212]aste !":goto20800
23500 x=int(5*rnd(1))+1:ifx>1thenprint"[212]aste !":goto20800
23503 gosub31000:print"";n$(i)" ist leider ver-"
23506 print"storben.[197]in [212]errorist drang in seine"
23510 print"[214]illa ein und vergiftete ihn.":goto20800
23600 print"[197]in [185]ltransporter lief aus und ver-
23605 [153]"seuchte das chr$rundwasser.str$ie"
23610 x[178][181](1000[172][187](1)[170]750):[153]"valntseuchung kostete";x"left$asc.":g(i)[178]g(i)[171]x
23615 [137]20800
23700 [153]"valin right$ndustrieller wird verd^chtigt,"
23710 [153]"(NULL)teuern hinterzogen zu haben.(NULL)ollen"
23720 [153]"sie einen (NULL)rozess (j/n) ?"
23725 [161]a$:[139] a$[178]""[167] 23725
23730 [139]a$[178]"j"[167]23750
23735 [139]a$[178]"n"[167][142]
23740 [137] 23725
23750 x[178][181](2[172][187](1))[170]1:[139]x[178]1[167]23760
23754 [137]23770
23760 [153]"(NULL)ie haben gewonnen und bekommen"
23762 x[178][181](3000[172][187](1))[170]1000:[153]"";x"left$asc.":g(i)[178]g(i)[170]x:[137]20800
23770 x[178]([181](1000[172][187](1))[170]500):[153]"(NULL)ie haben verloren."
23771 [153]"chr$erichtskosten :";x"left$asc":[137]20800
23800 [153]"peekei einem ascussballspiel wurden"
23805 x[178][181](5[172][187](1))[170]5:[153]"";x"ascans bei (NULL)rfregeleien get\tet.":[141]50760
23816 [153]"right$hre (NULL)olizei.":[139][194](1039[170]i)[171]3[179]1[167] [151](1039[170]i),0:[137]20800
23820 [151](1039[170]i),[194](1039[170]i)[171]3:[137]20800
23900 [153]"chr$eiseldrama !":x[178][181](3[172][187](1))[170]2:[153]"peekei einem peekankfreberfall wurden";x
23904 [153]"(NULL)eute als chr$eiseln genommen.":[139][194](1091[170]i)[179]1[167]23930
23908 [153]"right$hr (NULL)onderkommando stfrermte die peekank"
23910 [153]"und befreite die chr$eiseln.str$ie chr$eisel-":[153]"nehmer wurden erschossen."
23918 x[178][181](1000[172][187](1))[170]1000:[153]"(NULL)osten:";x"left$asc":g(i)[178]g(i)[171]x
23920 [139][194](1039[170]i)[170]4[177]100[167][151](1039[170]i),100:[137]20800
23922 [151](1039[170]i),[194](1039[170]i)[170]4:[137]20800
23930 [153]"str$a sie kein (NULL)onderkommando hatten,"
23932 [153]"musste man den ascorderungen nachgeben."
23934 y[178][181](x[172][187](1))[170]2:[153]"";y"chr$eiseln sind ums (NULL)eben ge-"
23936 [153]"kommen.str$as (NULL)olk ist sehr ver^rgert":ew(i)[178]ew(i)[171]y
23938 [153]"darfreber,dass kein (NULL)onderkommando"
23939 [153]"vorhanden war."
23940 [139][194](1039[170]i)[171]4[179]1[167][151](1039[170]i),0:[137]20800
23942 [151](1039[170]i),[194](1039[170]i)[171]4:[137]20800
24000 [153]"(NULL)aste !":[137]20800
24100 [153]"(NULL)ie mussten einen 40 mid$ahre alten"
24105 x[178][181](1000[172][187](1))[170]1000:[153]"(NULL)redit zurfreckzahlen.";:g(i)[178]g(i)[171]x
24106 [153]"(NULL)osten:";x"left$asc":[137]20800
24200 [153]"right$hre atnrmee hat bei einem inter-":[153]"nationalen und kostenlosen atnus-"
24210 [153]"bildungswettbewerb teilgenommen.right$hre"
24215 [153]"(NULL)ampfst^rke stieg.":[139][194](1115[170]i)[170]4[177]100[167][151](1115[170]i),100:[137]20800
24220 [151](1115[170]i),[194](1115[170]i)[170]4:[137]20800
24300 [153]"atnus dem (NULL)erkauf alter (NULL)agerbest^nde"
24305 x[178][181](2000[172][187](1))[170]1000:[153]"erhalten sie";x"left$asc.":[137]20800
24400 [153]"valine (NULL)enten-(NULL)onderzahlung ist f^llig."
24405 x[178][181](2000[172][187](1))[170]1500:g(i)[178]g(i)[171]x:[153]"(NULL)osten :";x"left$asc":[137]20800
24500 [153]"peekei einer left$ochwasserkatastrophe"
24505 x[178][181](5000[172][187](1))[170]3000:[153]"entstand ein (NULL)achschaden von";x"left$asc."
24510 g(i)[178]g(i)[171]x:x[178][181](100[172][187](1))[170]20:[153]"";x"(NULL)enschen kamen ums (NULL)eben."
24515 ew(i)[178]ew(i)[171]x:[137]20800
24600 x[178][181](250[172][187](1))[170]200:[153]"valine chr$ruppe von";x"politisch"
24605 [153]"(NULL)erfolgten wurde in right$hr (NULL)and aufge-"
24610 [153]"nommen.":ew(i)[178]ew(i)[170]x:[137]20800
24700 [153]"right$n einer (NULL)linik fiel der (NULL)trom aus."
24705 [153]"str$a kein (NULL)otstrom-atnggregat vorhanden"
24710 x[178][181](15[172][187](1))[170]10:[153]"war starben,";x"(NULL)enschen."
24715 [141]50760:[153]"das ascehlen eines (NULL)otstrom-":ew(i)[178]ew(i)[171]x
24720 [153]"aggregats in einer (NULL)linik."
24725 y[178][181](100[172][187](1))[170]50:y[178]x[172]y:[153]"str$ie valntsch^digungen f*r die ascamilien"
24730 [153]"belaufen sich auf";y"left$asc.":g(i)[178]g(i)[171]y
24735 [139][194](1039[170]i)[171]5[179]1[167][151](1039[170]i),0:[137]20800
24740 [151](1039[170]i),[194](1039[170]i)[171]5:[137]20800
24800 [153]"(NULL)ie bekommen einen (NULL)redit in left$\he von"
24805 x[178][181](7000[172][187](1))[170]3000:[153]"";x"left$asc zurfreck.":g(i)[178]g(i)[170]x:[137]20800
24900 [153]"right$hr (NULL)taat bekam durch ein asc\rder-"
24905 [153]"ungsprojekt einen (NULL)uschuss in left$\he"
24910 x[178][181](10000[172][187](1))[170]5000:[153]"von";x"left$asc.":g(i)[178]g(i)[170]x:[137]20800
25000 x[178][181](5[172][187](1))[170]1:[139]x[177]2[176][194](1023[170]i)[178]0[167][153]"(NULL)aste !":[137]20800
25020 [153]"valines right$hrer (NULL)ernkraftwerke ist in"
25022 [153]"die (NULL)uft geflogen.right$m ganzen (NULL)and be-"
25025 [153]"gann ein (NULL)assensterben."
25030 [153]"right$hr (NULL)and ist f*r die die n^chsten 50"
25035 [153]"mid$ahre nicht mehr bewohnbar."
25040 [153]"(NULL)ie starben ebenfalls,womit das":[151](1699[170]i),1
25045 [153]"(NULL)piel ffrer sie leider beendet ist.":[137]20800
25100 [153]"str$urch peekrandstiftung in einem right$hrer"
25105 [153]"peekfreros enstand ein (NULL)achschaden von":x[178][181](3000[172][187](1))[170]2000
25110 [153]"";x"left$asc.":g(i)[178]g(i)[171]x:[137]20800
25200 [153]"peekei einem chr$rubenunglfreck kamen"
25205 x[178][181](20[172][187](1))[170]5:ew(i)[178]ew(i)[171]x:y[178][181](3000[172][187](1))[170]2000:g(i)[178]g(i)[171]y
25210 [153]"";x"(NULL)enschen ums (NULL)eben.(NULL)ie mussten"
25215 [153]"";y"left$asc an die ascamilien der (NULL)pfer"
25220 [153]"bezahlen.":[137]20800
25300 [139][194](1043[170]i)[177]50[167][153]"(NULL)aste !":[137]20800
25305 [153]"(NULL)mweltschutzgruppen veranstalteten"
25310 [153]"mehrere (NULL)assendemos,um auf den"
25315 [153]"schlechten (NULL)mweltzustand aufmerksam"
25320 [153]"zu machen.":[137]20800
25400 [139][194](1023[170]i)[179]10[167][153]"(NULL)aste !":[137]20800
25405 [153]"str$as (NULL)olk fordert sie auf,weniger"
25406 [153]"(NULL)ernkraftwerke zu bauen.":[137]20800
25500 [153]"right$hr (NULL)ekret^r machte sich mit"
25505 x[178][181](3000[172][187](1))[170]999:[153]"";x"left$asc aus dem (NULL)taub.":[137]20800
25525 x[178][181](20[172][187](1))[170]5:ew(i)[178]ew(i)[171]x:y[178]x[173]2
25600 [153]"(NULL)ie werden aufgefordert,left$ilfsgfreter"
25610 [153]"ffrer valrdbebenopfer in mid$apan be-"
25620 [153]"reitzustellen.str$ie (NULL)osten sind noch"
25630 [153]"nicht absch^tzbar.right$hr (NULL)olk fordert"
25640 [153]"sie auf,zu spenden.(NULL)ollen sie"
25650 [153]"die left$ilfsgfreter bereitstellen (j/n) ?"
25660 [161]a$:[139]a$[178]""[167]25660
25670 [139]a$[178]"j"[167]25690
25675 [139]a$[178]"n"[167]25682
25676 [137]25660
25682 [141]50760:[153]"ihren chr$eiz !":[139][194](1039[170]i)[171]4[179]0[167][151](1039[170]i),0:[137]20800
25683 [151](1039[170]i),[194](1039[170]i)[171]4:[137]20800
25690 [153]"str$as (NULL)olk ist freber ihre left$ilfsbereit-"
25691 x[178][181](3000[172][187](1))[170]2500:g(i)[178]g(i)[171]x:[151](1039[170]i),[194](1039[170]i)[170]2
25692 [153]"schaft sehr erfreut.(NULL)osten:";x"left$asc":[137]20800
25693 [139][194](1039[170]i)[177]100[167][151](1039[170]i),100
25700 [153]"str$ie (NULL)enovierung der atnltstadt right$hrer":x[178][181](2000[172][187](1))[170]1000
25705 [153]"left$auptstadt kostet (NULL)ie";x"left$asc.":g(i)[178]g(i)[171]x:[137]20800
30000 [153]"load left$erzlichen chr$l*ckwunsch,"
30005 [153]"(NULL)ie haben right$hre atnmtszeit *berstanden."
30010 x[178]1:y[178]lb(x):[129]z[178]1[164]9:[139]lb(z)[177]y[167]y[178]lb(z):x[178]z:[130]
30015 [130]
30030 [153]"(NULL)ieger ist ";ln$(x)",dessen (NULL)r^si-"
30040 [153]"dent nun die ganze valchr$ regieren wird."
30050 [153]"str$ie anderen (NULL)r^sidenten sind wegen"
30060 [153]"mangelnder ascfrehrungsf^higkeit ausge-"
30070 [153]"geschieden.":[141]20800:[138]
31000 [153]"loadsys [ [ ["
31005 [153]" ] ] ]"
31006 [141]31010:[137]31011
31010 [129]a[178]1[164]2:[153]"stop ":[130]a:[142]
31011 [153]"stop stop stop stop "
31012 [153]"stop stop stop stop "
31013 [153]"stop "
31014 [153]"stop stop stop stop "
31015 [153]"stop stop stop stop "
31017 [141]31010
31019 [153]"stop "
31020 [153]"onstop contstopwait";:[142]
31130 c2[178][194](1200[170]c):a2[178]a2[170]b2[170]c2[170]50
32000 [141]31000:[153]"str$a sie anscheinend nicht mit chr$eld"
32010 [153]"umgehen k\nnen und in die (NULL)inuszahlen"
32020 [153]"wirtschafteten,wurden sie von right$hrem"
32025 [153]"wfretendem (NULL)olk erschlagen !":[151](1035[170]i),1:[137]20800
32145 [151](1155[170]i),[194](1155[170]i)[171]2:[137]19299
33000 [141]19000:[153]"(NULL)andwirtschaft":[139]gv(i)[178]0[167]33100
33003 [139]gv(i)[179]sg(i)[167][153][166]9)"(NULL)(NULL)close(NULL)val(NULL)right$chr$close(NULL)atnatn(NULL)chr$(NULL)(NULL)!!!"
33005 [153]"(NULL)osten ffrer"
33010 x[178]ac(i)[172]2:y[178][181](500[172][187](1))[170]99:x[178]x[170]y:g(i)[178]g(i)[171]x:[153]"- das (NULL)flfregen";
33011 [153]" der ascelder :";x"left$asc"
33020 x[178]([181](sg(i)[173]2)):y[178][181](500[172][187](1))[170]99:x[178]x[170]y
33021 [153]"- die atnussaat :";x"left$asc"
33025 [139]gv(i)[177]sg(i)[167]w[178]sg(i):gv(i)[178]gv(i)[171]sg(i):[137]33030
33027 w[178]gv(i):gv(i)[178]0
33030 [153]"- verbrauchtes (NULL)aatgut :";w"chr$left$asc":[137]20800
33100 [153]"str$a sie kein (NULL)aatgut hatten,konnten"
33110 [153]"(NULL)ie leider kein chr$etreide anpflanzen.":w[178]0:[141]20800
35000 sp[178]52585
35001 [141]19000:[153]"(NULL)elches (NULL)and wollen sie angreifen ?"
35005 a[178]11:[151]sp,62:b[178]400:jmp[178]1
35006 [153]"":[129]x[178]1[164]10:[153]"";ln$(x):[130]:[153]"(NULL)enfre"
35035 [141]20100:[139]jmp[178]11[167]2499
35036 [139]jm[178]i[167]35001
35037 [151](1159[170]i),1:x[178]o:[129]y[178]zz[170]1[164]10:x[178]x[170][194](1699[170]y):[130]
35038 [139]jm[179]zz[170]1[175]x[178]10[171]zz[175][194](1699[170]jm)[178]0[167]35050
35039 [139]jm[177]zz[175][194](1699[170]jmp)[178]0[167]35050
35040 [137]35000
35050 y[178]jmp:[137]19677
36000 u[178][194](1299[170]i)[172]1:v[178][194](1309[170]i)[172]2:w[178][194](1319[170]i)[172]1:u[178]u[170]v[170]w
36005 [139][194](1399[170]i)[170]u[177]255[167][151](1399[170]i),255:[137]36010
36006 [151](1399[170]i),u
36010 u[178][194](1299[170]y)[172]1:v[178][194](1309[170]y)[172]2:w[178][194](1319[170]y)[172]1:u[178]u[170]v[170]w
36015 [139][194](1399[170]y)[170]u[177]255[167][151](1399[170]y),255:[142]
36016 [151](1399[170]y),u:[142]
37000 [141]19000:[153]"*ber welches (NULL)and wollen sie":[153]"right$nformationen ?"
37001 [129]x[178]1[164]10:[139]lb(x)[179]0[167]lb(x)[178]512:[130]
37002 [130]
37030 sp[178]52665:a[178]11:[151]sp,62:b[178]400:jmp[178]1
37040 [153]"":[129]x[178]1[164]10:[153]"";ln$(x):[130]
37041 [153]"(NULL)enfre":[141]20100:[139]jmp[178]11[167][142]
37052 [139][194](1699[170]jm)[178]1[167][153]"valxistiert nicht mehr!":[141]20800:[137]37000
37060 x[178]jmp:[141]19000:[153]"right$nformationen freber ";ln$(x)
37080 [153]"(NULL)anzer :";[194](1299[170]x)
37085 [153]"asclugzeuge :";[194](1309[170]x)
37090 [153]"(NULL)ruppen :";[194](1319[170]x)
37092 [153]"(NULL)asernen :";[194](1380[170]x)
37100 [153]"atnusbildung :";[194](1399[170]x)"%"
37110 [153]"(NULL)andesgr\sse:";lb(x)"(NULL)left$asc":[141]20800:[137]37000
38000 [139]ja[179]2013[167][142]
38010 [129]pp[178](zz[170]1)[164]10:[139]pp[177]10[167][142]
38020 y[178][181](10[172][187](1))[170]1
38021 [139]y[179]10[173]([194](1710)[170]1)[167][130]pp:[137]38080
38035 [139][194](1699[170]pp)[178]0[167]38038
38036 [139]pp[179]10[167][130]pp
38037 [142]
38038 s[178]0
38040 y[178][181](10[172][187](1))[170]1:s[178]s[170]0.2:f[178][194](1309[170]y)[170][194](1299[170]y)[170][194](1319[170]y)
38041 e[178][194](1299[170]pp)[170][194](1309[170]pp)[170][194](1319[170]pp):[139]e[170]([194](1710[172]5))[179]f[175]pp[179]10[167][130]:[142]
38044 [139]s[178]5[175]pp[179]10[167][130]pp
38045 [139]s[177]5[175]pp[178]10[167]38080
38050 [139]y[178]pp[167]38040
38051 [139]pp[179]5[175]y[179]5[167]38040
38055 [139][194](1299[170]y)[170][194](1309[170]y)[170][194](1319[170]y)[177]0[167]38059
38056 [137]38040
38059 [153]"loadvals k^mpft: ";ln$(pp)" gegen ";ln$(y):[151]1800,i:i[178]pp:rr[178]1:[141]19676
38070 [139]pp[179]10[167][130]pp
38080 i[178][194](1800):[142]
40000 [153]"valnde des (NULL)rieges !":[141]20800
40002 [153]"load";ln$(a)" hat leider keine (NULL)ruppen"
40010 [153]"mehr und muss sich ergeben.str$ie":x[178]lb(a)[173]4:x[178][181](x[173]4)[170]1959
40011 [139]x[177]lb(a)[167]x[178]lb(a)
40015 lb(b)[178]lb(b)[170]x:gl(b)[178]gl(b)[170]x:[151](1699[170]a),1
40020 [153]"left$auptstadt wurde zerst\rt"
40021 [153]"und ";ln$(b)
40022 [153]"bekam";x"(NULL)left$asc (NULL)and.":[141]47000
40030 [151](1699[170]a),1:[139]bb[178]1[167]bb[178]0:[141]20800:[137]2498
40031 [137]20800
41000 [153]"loadpeekitte warten !"
41003 [129]x[178](zz[170]1)[164]10:[139][194](1699[170]x)[178]1[167][130]x
41006 a[178][194](1299[170]x):b[178][194](1309[170]x):c[178][194](1319[170]x)
41022 y[178]5[172][187](1)[170]4:a[178]a[170]y:[139][194](1299[170]x)[170]a[179]255[167][151](1299[170]x),a:[137]41027
41024 [151](1299[170]x),255
41027 y[178]5[172][187](1)[170]3:b[178]b[170]y:[139][194](1309[170]x)[170]b[179]255[167][151](1309[170]x),b:[137]41032
41029 [151](1309[170]x),255
41032 y[178]9[172][187](1)[170]6:c[178]c[170]y:[139][194](1319[170]x)[170]c[179]255[167][151](1319[170]x),c:[137]41040
41033 [151](1319[170]x),255
41040 u[178][194](1299[170]x)[172]1.5:v[178][194](1309[170]x)[172]2:w[178][194](1319[170]x)[172]1:u[178]u[170]v[170]w
41050 [139][194](1399[170]x)[170]u[177]100[167][151](1399[170]x),100:[137]41060
41051 [151](1399[170]x),u
41060 [141]50200
41061 [141]51000
41070 [139]x[179]10[167][130]x:[142]
41075 [142]
42000 [139][194](1163[170]i)[178]1[167][141]20060:[137]19299
42001 [139][194](1091[170]i)[177]0[167][137]42005
42002 [153]"valrst (NULL)onderkommando kaufenwait":[141]20800:[137]19299
42005 [141]19000:[153][166]14)"(NULL)atnpeek(NULL)(NULL)atnchr$val"
42007 sp[178]52705:a[178]11:[151]sp,62:jmp[178]1:b[178]400
42008 [153]"right$n welchem (NULL)and wollen sie eine ":[153]"(NULL)aserne sabotieren ?"
42010 [153]"":[129]x[178]1[164]10:[153]"";ln$(x):[130]x:[153]"(NULL)enfre":[141]20100
42011 [139]jmp[178]11[167]19299
42015 [139][194](1379[170]jmp)[178]0[167]42005
42016 [139][194](1699[170]jmp)[178]1[167]42005
42020 [141]19000:y[178][194](1087[170]i)[170][194](1155[170]i):x[178]y[170][194](1399[170]jm)
42021 [151](1163[170]i),1:[139]x[178]y[167]y[178]y[171]1
42040 w[178]x[170]y:z[178][181](w[172][187](1))[170]1:[139]z[179]x[176]z[178]x[167]42100
42055 [153]"str$er atnnschlag ist gelungen.str$ie"
42060 [153]"(NULL)aserne und die dazugeh\rigen"
42065 [153]"(NULL)affen sind zerst\rt.str$ie (NULL)osten ffrer"
42070 x[178][181](4200[172][187](1))[170]3000:[153]"diesen atnnschlag betragen";x"left$asc."
42080 g(i)[178]g(i)[171]x:[141]20800:[137]42200
42100 [153]"str$er atnnschlag ist misslungen.right$hr"
42110 [153]"(NULL)onderkommando wurde erschossen.str$ie"
42120 [153]"(NULL)osten ffrer die verloren gegangene"
42130 x[178][181](4200[172][187](1))[170]1500:[153]"atnusrfrestung betr^gt";x"left$asc.":g(i)[178]g(i)[171]x
42140 [151](1091[170]i),[194](1091[170]i)[171]1
42143 [139][194](1155[170]i)[171]2[179]1[167][151](1155[170]i),0:[137]42150
42145 [151](1155[170]i),[194](1155[170]i)[171]2
42150 [141]20800:[137]19299
42200 [129]x[178]1[164]3:[139][194](1299[170]jmp)[171]3[179]0[167][151](1299[170]jmp),0:[137]42230
42220 [151](1299[170]jmp),[194](1299[170]jmp)[171]3
42230 jmp[178]jmp[170]10:[130]:y[178]jmp:[141]36000:[137]19299
42500 [153]"(NULL)ieviel (NULL)tfreck ";:[133]x
42501 [139]gl(i)[171]x[172]30[179]0[176][194](1379[170]i)[170]x[177]255[176]x[178]0[167][142]
42502 g(i)[178]g(i)[171]x[172]500:[151](1379[170]i),[194](1379[170]i)[170]x:a(i)[178]a(i)[170]x[172]30:eb(i)[178]eb(i)[170]x[172]50
42503 gl(i)[178]gl(i)[171]x[172]30:bl(i)[178]bl(i)[170]x[172]30:[137]20050
43000 [139][194](1379[170]i)[178]0[167][142]
43002 x[178][181](10[172][187](1))[170]1:[139]x[179](zz[170]1)[167]43002
43003 [139][194](1699[170]x)[178]1[167][142]
43005 q[178][194](1399[170]x)[170][194](1151[170]i):y[178][181](q[172][187](1))[170]1
43006 [141]19000:[153]"";ln$(x)" verfrebte auf eine right$hrer"
43007 [153]"(NULL)asernen einen atnnschlag.":[139]y[177][194](1399[170]x)[167]43050
43020 [153]"str$er atnnschlag gelang und sie verloren":[153]"eine (NULL)aserne."
43035 x[178]1299:[129]y[178]1[164]3:[139][194](x[170]i)[171]3[179]0[167][151](x[170]i),0:x[178]x[170]10:[130]:[137]43048
43041 [151](x[170]i),[194](x[170]i)[171]3:x[178]x[170]10:[130]
43048 [151](1379[170]i),[194](1379[170]i)[171]1:bl(i)[178]bl(i)[171]30:gl(i)[178]gl(i)[170]30:eb(i)[178]eb(i)[171]50
43049 a(i)[178]a(i)[171]30:[137]20800
43050 [153]"str$er atnnschlag misslang jedoch.":[137]20800
44000 x[178][181](ew(i)[173]80):y[178][181](100[172][187](1))[170]1:x[178](x[170]y)[170](100[171][194](1043[170]i))
44005 ew(i)[178]ew(i)[171]x:[141]19000:[153]"str$ieses mid$ahr starben";x"(NULL)enschen und"
44010 x[178][181](4[172][187](1))[170]7:y[178][181](400[172][187](i)):x[178](x[172][194](1039[170]i))[170]y:ew(i)[178]ew(i)[170]x
44015 [153]"es wurden";x"(NULL)inder geboren.":gb(i)[178][181](ew(i)[173]2):[142]
45000 [153]"(NULL)ollen sie dieses mid$ahr (NULL)andwirtschaft"
45005 [153]"betreiben (l) oder von right$hren":[153]"(NULL)orr^ten leben (v) ?"
45007 [161]a$:[139]a$[178]""[167]45007
45008 [139]a$[178]"l"[167]21751
45009 [139]a$[178]"v"[167]xx[178]512:[137]21843
45010 [137]45007
46000 [139]pi(i)[179]lh(i)[176]pi(i)[178]lh(i)[167]x[178]pi(i):[142]
46001 x[178]lh(i):z[178]1:[142]
46002 [153]"str$a sie zu wenig (NULL)agerplatz":x[178]pi(i)[171]lh(i):z[178]0
46005 [153]"ffrer ihre right$left$asc hatten,verrotteten":[153]"";x"right$left$asc.":[142]
47000 [153]"str$urch (NULL)lfrenderungen bekam ";ln$(b):x[178][181](9000[172][187](1))[170]4000
47005 [153]"";x"left$asc.":g(b)[178]g(b)[170]x:[139]a[179](zz[170]1)[167]g(i)[178]g(i)[171]x
47006 [142]
47500 x[178][181]([194](1399[170]i)[173]3):[151](1399[170]i),[194](1399[170]i)[171]x:y[178][181](999[172][187](1))
47502 x[178]((100[171][194](1399[170]i))[172]127)[170]y:[129]y[178]1[164]3:x[178]x[170][194](1289[170](y[172]10[170]i))[172]44:[130]
47510 [141]19000:[153]"str$as (NULL)ilit^r verlangt";x"left$asc,um"
47515 [153]"ihr (NULL)ilit^r gut ausbilden zu k\nnen.":[141]20500
47520 w[178][181](b[173]127):[139][194](1399[170]i)[170]w[177]100[167][151](1399[170]i),100:[137]48000
47530 [151](1399[170]i),[194](1399[170]i)[170]w
48000 x[178][181]([194](1155[170]i)[173]3):[151](1155[170]i),[194](1155[170]i)[171]x:y[178][181](999[172][187](1))
48002 x[178]((100[171][194](1155[170]i))[172]96)[170]y
48004 [141]19000:[153]"str$er (NULL)olizeipr^sident verlangt"
48005 [153]"";x"left$asc von right$hnen,um veraltete atnus-"
48007 [153]"rfrestung zu modernisieren und neue"
48009 [153]"kaufen zu k\nnen.":[141]20500
48012 w[178][181](b[173]96):[139][194](1155[170]i)[170]w[177]100[167][151](1155[170]i),100:[137]48500
48015 [151](1155[170]i),[194](1155[170]i)[170]w
48500 x[178][181]([194](1087[170]i)[173]4):[151](1087[170]i),[194](1087[170]i)[171]x:y[178][181](999[172][187](1))
48503 x[178]((100[171][194](1087[170]i))[172]122)[170](y[170](po(i)[172]2)[170][194](1091[170]i)[172]300)
48506 [141]19000:[153]"vals werden";x"left$asc ben\tigt,um die"
48509 [153]"(NULL)olizei auszubilden.":[141]20500
48512 w[178][181](b[173]122):[139][194](1087[170]i)[170]b[177]100[167][151](1087[170]i),100:[137]22600
48515 [151](1087[170]i),[194](1087[170]i)[170]b:[137]22600
49000 [139]jm[178]2[176]jm[178]4[176]jm[178]6[167]20291
49001 [153]"loadright$hr (NULL)olk l^sst aus atnngst vor einer"
49005 [153]"(NULL)ouristenschwemme den peekau weiterer"
49010 [153]"(NULL)ouristenanlagen nicht zu !":[137]20800
49500 [141]19000:[153]"str$a sie zu wenig (NULL)frehlen hatten,":yy[178]1
49502 [153]"konnte nicht genfregend (NULL)orn ffrer right$hr"
49504 [153]"(NULL)olk gemahlen werden.vals verhungerten":x[178]gb(i)[171]gk(i):ew(i)[178]ew(i)[171]x
49506 [153]"insgesamt";x"(NULL)enschen.str$as (NULL)olk ist":[153]"sehr ver^rgert."
49508 x[178]x[173]20:[139][194](1039[170]i)[171]x[179]1[167][151](1039[170]i),0:[137]20800
49512 [151](1039[170]i),[194](1039[170]i)[171]x:[137]20800
50000 [153]"load(NULL)it wieviel chr$eld wollen (NULL)ie"
50001 a[178]0:[153]"starten (maximal 50000 left$asc)";[166]54);:[133]a
50002 [139]a[179][178]0[176]a[177]50000[167]50000
50003 [129]x[178]1[164]zz:g(x)[178]a:[130]:[142]
50100 x[178]0:[153]"load(NULL)elche (NULL)chwierigkeitsstufe m\chten"
50101 [153]"(NULL)ie spielen (1-5)";[166]63);:[133]x:[139]x[179]1[176]x[177]5[167]50100
50102 [151]1710,x:[137]60000
50200 y[178][194](1710)
50202 [139][194](1299[170]x)[170]y[177]250[167][151](1299[170]x),250:[137]50204
50203 [151](1299[170]x),[194](1299[170]x)[170]y
50204 [139][194](1319[170]x)[170]y[177]250[167][151](1319[170]x),250:[137]50206
50205 [151](1319[170]x),[194](1319[170]x)[170]y
50206 [139][194](1309[170]x)[170]y[177]250[167][151](1309[170]x),250:[137]50208
50207 [151](1309[170]x),[194](1309[170]x)[170]y
50208 [142]
50500 [141]19000:[153]"(NULL)olen (NULL)ie wirklich zur atnuswertung ?"
50502 [153]"(NULL)enn ja,dann bitte 'space' drfrecken,an-":[153]"sonsten bitte 'x'"
50504 [161]a$:[139]a$[178]""[167]50504
50506 [139]a$[178]"x"[167]500
50507 [142]
50700 a[178]0:[153]"(NULL)ieviel (NULL)olizisten entlassen ";:[133]a
50701 [139]a[177]po(i)[176]a[179]0[167][153]"ononon":[137]50700
50702 a[178]([181](a)):po(i)[178]po(i)[171]a:a(i)[178]a(i)[171]a[172]10:[142]
50760 [153]"str$as (NULL)olk ist sehr ver^rgert freber":[142]
51000 [151](1379[170]x),[194](1379[170]x)[170]5:[139][194](1379[170]x)[177]85[167][151](1379[170]x),85
51001 [142]
51300 [153]"peekietet nichts an !";:[141]20800
51301 [153]"cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmd ononononon":[142]
52000 x[178][181](50[172][187](1))[170]34:[142]
60000 [153]"load(NULL)ieviel mid$ahre wollen (NULL)ie spie-":[153]"len (max. 30) ";:[133]x
60001 [139]x[179]5[176]x[177]30[167]60000
60002 [151]1711,x:[142]